home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 October / Macformat17.cdr / Shareware City / HyperCard / hyper-extras-hc / HyperExtras / HyperExtras.rsrc / TEXT_3008_closeStuff.txt < prev    next >
Encoding:
Text File  |  1994-07-11  |  635 b   |  21 lines

  1. if short name of this stack is "HyperExtras" then
  2.     if "HyperExtras" is not in the stacksInUse then
  3.       if there is a menu "Extras" then
  4.         delete menu "Extras"
  5.       end if
  6.     end if
  7.   end if
  8.   goBack
  9.   put the freesize of this stack into x
  10.   if x>30000 then
  11.     put the name of this stack into y
  12.     answer "HyperExtras"&return&return&"There is"&&x&"k free. "&¬¨
  13.     "Compact stack"&&y&&"now?" with "No" or "Compact"
  14.     if it is "Compact" then
  15.       if there is a menuItem "Compact stack" of menu "File" then
  16.         doMenu "Compact Stack"
  17.       else
  18.         answer "Cannot find menuItem."
  19.       end if
  20.     end if
  21.   end if